home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / graphics / gnuplot / gnuplot.el < prev    next >
Lisp/Scheme  |  1993-09-15  |  6KB  |  151 lines
  1. ;;
  2. ;; $Id: gnuplot.el%v 3.50 1993/07/09 05:35:24 woo Exp $
  3. ;;
  4. ;;
  5. ; 
  6. ; gnu-plot.el - Definitions of GNU-PLOT mode for emacs editor.
  7. ; 
  8. ; Author:    Gershon Elber
  9. ;         Computer Science Dept.
  10. ;         University of Utah
  11. ; Date:    Tue May 14 1991
  12. ; Copyright (c) 1991, 1992, Gershon Elber
  13. ;
  14. ; This file defines an environment to run edit and execute GNU-PLOT programs.
  15. ; Such a program should have a '.gp' extension in order it to be in
  16. ; gnu-plot-mode major mode. Two new functions are provided to communicate
  17. ; between the editted file and the plotting program:
  18. ; 1. send-line-to-gnu-plot - sends a single line to the plotting program for
  19. ;    execution. The line sent is the line the cursor is on,
  20. ;    Bounded to Meta-E by default.
  21. ; 2. send-region-to-gnu-plot - sends the region from the current mark
  22. ;    (mark-marker) to current position (point-marker) to the plotting program.
  23. ;    This function is convenient for sending a large block of commands.
  24. ;    Bounded to Meta-R by default.
  25. ; Both functions checks for existance of a buffer named gnu-plot-program
  26. ; and a process named "gnu-plot" hooked to it, and will restart a new process
  27. ; or buffer if none exists. The program to execute as process "gnu-plot" is
  28. ; defined by the gnu-plot-program constant below.
  29. ;
  30.  
  31. (defvar gnu-plot-program "gnuplot"
  32.   "*The executable to run for gnu-plot-program buffer.")
  33.  
  34. (defvar gnu-plot-echo-program t
  35.   "*Control echo of executed commands to gnu-plot-program buffer.")
  36.  
  37. (defvar gnu-plot-mode-map nil "")
  38. (if gnu-plot-mode-map
  39.     ()
  40.   (setq gnu-plot-mode-map (make-sparse-keymap))
  41.   (define-key gnu-plot-mode-map "\M-e" 'send-line-to-gnu-plot)
  42.   (define-key gnu-plot-mode-map "\M-r" 'send-region-to-gnu-plot))
  43.  
  44. ;;;
  45. ;;; Define the gnu-plot-mode
  46. ;;;
  47. (defun gnu-plot-mode ()
  48.   "Major mode for editing and executing GNU-PLOT files.
  49.  
  50. see send-line-to-gnu-plot and send-region-to-gnu-plot for more."
  51.   (interactive)
  52.   (use-local-map gnu-plot-mode-map)
  53.   (setq major-mode 'gnu-plot-mode)
  54.   (setq mode-name "Gnu-Plot")
  55.   (run-hooks 'gnu-plot-mode-hook))
  56.  
  57. ;;;
  58. ;;; Define send-line-to-gnu-plot - send from current cursor position to next
  59. ;;; semicolin detected.
  60. ;;;
  61. (defun send-line-to-gnu-plot ()
  62.   "Sends one line of code from current buffer to the GNU-PLOT program.
  63.  
  64. Use to execute a line in the GNU-PLOT plotting program. The line sent is
  65. the line the cursor (point) is on.
  66.  
  67. The GNU-PLOT plotting program buffer name is gnu-plot-program and the 
  68. process name is 'gnu-plot'. If none exists, a new one is created.
  69.  
  70. The name of the gnu-plot program program to execute is stored in
  71. gnu-plot-program variable and may be changed."
  72.   (interactive)
  73.   (if (equal major-mode 'gnu-plot-mode)
  74.     (progn
  75.       (make-gnu-plot-buffer)        ; In case we should start a new one.
  76.       (beginning-of-line)
  77.       (let ((start-mark (point-marker)))
  78.     (next-line 1)
  79.     (let* ((crnt-buffer (buffer-name))
  80.            (end-mark (point-marker))
  81.            (string-copy (buffer-substring start-mark end-mark)))
  82.       (switch-to-buffer-other-window (get-buffer "gnu-plot-program"))
  83.       (end-of-buffer)
  84.       (if gnu-plot-echo-program
  85.         (insert string-copy))
  86.       (set-marker (process-mark (get-process "gnu-plot")) (point-marker))
  87.       (if (not (pos-visible-in-window-p))
  88.         (recenter 3))
  89.       (switch-to-buffer-other-window (get-buffer crnt-buffer))
  90.       (process-send-region "gnu-plot" start-mark end-mark)
  91.       (goto-char end-mark))))
  92.     (message "Should be invoked in gnu-plot-mode only.")))
  93.  
  94. ;;;
  95. ;;; Define send-region-to-gnu-plot - send from current cursor position to
  96. ;;; current marker.
  97. ;;;
  98. (defun send-region-to-gnu-plot ()
  99.   "Sends a region of code from current buffer to the GNU-PLOT program.
  100.  
  101. When this function is invoked on an GNU-PLOT file it send the region
  102. from current point to current mark to the gnu-plot plotting program.
  103.  
  104. The GNU-PLOT plotting program buffer name is gnu-plot-program and the
  105. process name is 'gnu-plot'. If none exists, a new one is created.
  106.  
  107. The name of the gnu-plot program program to execute is stored in
  108. gnu-plot-program variable and may be changed."
  109.   (interactive)
  110.   (if (equal major-mode 'gnu-plot-mode)
  111.     (progn
  112.       (make-gnu-plot-buffer)     ; In case we should start a new one.
  113.       (copy-region-as-kill (mark-marker) (point-marker))
  114.       (let ((crnt-buffer (buffer-name)))
  115.     (switch-to-buffer-other-window (get-buffer "gnu-plot-program"))
  116.     (end-of-buffer)
  117.     (if gnu-plot-echo-program
  118.       (yank))
  119.     (set-marker (process-mark (get-process "gnu-plot")) (point-marker))
  120.     (if (not (pos-visible-in-window-p))
  121.       (recenter 3))
  122.     (switch-to-buffer-other-window (get-buffer crnt-buffer))
  123.     (process-send-region "gnu-plot" (mark-marker) (point-marker))))
  124.     (message "Should be invoked in gnu-plot-mode only.")))
  125.  
  126. ;;;
  127. ;;; Switch to "gnu-plot-program" buffer if exists. If not, creates one and
  128. ;;; execute the program defined by gnu-plot-program.
  129. ;;;
  130. (defun make-gnu-plot-buffer ()
  131.   "Switch to gnu-plot-program buffer or create one if none exists"
  132.   (interactive)
  133.   (if (get-buffer "gnu-plot-program")
  134.     (if (not (get-process "gnu-plot"))
  135.       (progn
  136.     (message "Starting GNU-PLOT plotting program...")
  137.     (start-process "gnu-plot" "gnu-plot-program" gnu-plot-program)
  138.     (process-send-string "gnu-plot" "\n")
  139.     (message "Done.")))
  140.     (progn
  141.       (message "Starting GNU-PLOT plotting program...")
  142.       (start-process "gnu-plot" "gnu-plot-program" gnu-plot-program)
  143.       (process-send-string "gnu-plot" "\n")
  144.       (message "Done."))))
  145.  
  146. ;;;
  147. ;;; Autoload gnu-plot-mode on any file with gp extension. 
  148. ;;;
  149. (setq auto-mode-alist (append '(("\\.gp$" . gnu-plot-mode))
  150.                   auto-mode-alist))
  151.